VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "VBModules"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Private mcol As Collection
Private mPath As String

Public Sub AddModule(newModule As VBModule)
    mcol.Add newModule, newModule.Name
End Sub

Public Property Get Module(which As Long) As VBModule
    Set Module = mcol(which)
End Property

Public Property Get Count() As Long
    Count = mcol.Count
End Property

Private Sub Class_Initialize()
    Set mcol = New Collection
End Sub

Private Sub Class_Terminate()
    Set mcol = Nothing
End Sub
